home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / option.ph < prev    next >
Text File  |  1991-08-11  |  714b  |  26 lines

  1. if (!defined &_OPTION) {
  2.     eval 'sub _OPTION {1;}';
  3.     require 'cfuncproto.ph';
  4.     eval 'sub OPT_CONSTANT {
  5.         local($val) = @_;
  6.         eval "((\'int\') $val)";
  7.     }';
  8.     eval 'sub OPT_FALSE {0;}';
  9.     eval 'sub OPT_TRUE {1;}';
  10.     eval 'sub OPT_INT {-1;}';
  11.     eval 'sub OPT_STRING {-2;}';
  12.     eval 'sub OPT_REST {-3;}';
  13.     eval 'sub OPT_FLOAT {-4;}';
  14.     eval 'sub OPT_FUNC {-5;}';
  15.     eval 'sub OPT_GENFUNC {-6;}';
  16.     eval 'sub OPT_DOC {-7;}';
  17.     eval 'sub OPT_TIME {-8;}';
  18.     eval 'sub OPT_ALLOW_CLUSTERING {1;}';
  19.     eval 'sub OPT_OPTIONS_FIRST {2;}';
  20.     eval 'sub Opt_Number {
  21.         local($optionArray) = @_;
  22.         eval "($sizeof{$optionArray}/$sizeof{($optionArray}[0]))";
  23.     }';
  24. }
  25. 1;
  26.